home *** CD-ROM | disk | FTP | other *** search
/ The PC-SIG Library 10 / The PC-Sig Library - Shareware for the IBM PC and Compatibles (PC-SIG)(Tenth Edition Disks 1-2804)(1991).iso / PC_SIGCD / 20 / 9 / DISK2092.ZIP / RBBS-LIT.ZIP / LIT / ASMANSI.LIT < prev    next >
Text File  |  1990-01-17  |  1KB  |  37 lines
  1. *[ASMANSI.LIT]****************************************************************
  2. * Description: Removes ANSI character support and uses BASIC for writes.     *
  3. * RBBS-PC Level: CPC17.3                                                √ AM *
  4. * Module Affected: RBBSSUB2.BAS                                              *
  5. * Selection Option: ASMANSI = OFF                                            *
  6. * Additional files: None                                                     *
  7. ******************************************************************************
  8. 1480 SUB LPrnt (Strng$,NumReturns) STATIC
  9.       IF NOT ZSnoop THEN _
  10.          EXIT SUB
  11.       CALL PScrn (Strng$)
  12.       IF ZVoiceType <> 0 AND ZTalkAll THEN _
  13.          CALL Talk (65,Strng$)
  14.       FOR WasI = 1 TO NumReturns
  15.          PRINT
  16.       NEXT
  17.       END SUB
  18. 1482 SUB QuickLPrnt (Strng$,Num) STATIC
  19.       IF ZSnoop THEN _                                               ' KG011101
  20.          LOCATE ,1,1 : _                                             ' KG011101
  21.          CALL Pscrn (Strng$ + STR$(Num))                             ' KG011101
  22.      END SUB
  23. 1483 SUB PScrn (Strng$) STATIC
  24.      IF Strng$ = "" THEN _
  25.         EXIT SUB
  26.      PRINT Strng$;
  27.      END SUB
  28. 1485  SUB SkipLine (NumReturns) STATIC
  29.       FOR WasI=1 TO NumReturns
  30.           CALL PutCom (ZReturnLineFeed$)
  31.       NEXT
  32.       IF NOT ZSnoop THEN _
  33.          GOTO 1486
  34.       FOR WasI = 1 TO NumReturns
  35.          PRINT
  36.       NEXT
  37.